<?php

// +----------------------------------------------------------------------
// | ThinkPHP [ WE CAN DO IT JUST THINK IT ]
// +----------------------------------------------------------------------
// | Copyright (c) 2006-2012 http://thinkphp.cn All rights reserved.
// +----------------------------------------------------------------------
// | Licensed ( http://www.apache.org/licenses/LICENSE-2.0 )
// +----------------------------------------------------------------------
// | Author: liu21st <liu21st@gmail.com>
// +----------------------------------------------------------------------

/**
 * ThinkPHP内置的Dispatcher类
 * 完成URL解析、路由和调度
 * @category   Think
 * @package  Think
 * @subpackage  Core
 * @author    liu21st <liu21st@gmail.com>
 */
class Dispatcher {

    /**
     * URL映射到控制器
     * @access public
     * @return void
     */
    static public function dispatch() {
        $urlMode = C('URL_MODEL');
        if (isset($_GET[C('VAR_PATHINFO')])) { // 判断URL里面是否有兼容模式参数
            $_SERVER['PATH_INFO'] = $_GET[C('VAR_PATHINFO')];
            unset($_GET[C('VAR_PATHINFO')]);
        }
        if ($urlMode == URL_COMPAT) {
            // 兼容模式判断
            define('PHP_FILE', _PHP_FILE_ . '?' . C('VAR_PATHINFO') . '=');
        } elseif ($urlMode == URL_REWRITE) {
            //当前项目地址
            $url = dirname(_PHP_FILE_);
            if ($url == '/' || $url == '\\')
                $url = '';
            define('PHP_FILE', $url);
        }else {
            //当前项目地址
            define('PHP_FILE', _PHP_FILE_);
        }

        //已安装模块缓存列表
        $App = F("App");
        // 开启子域名部署
        if (isset($App['Domains']) && $App['Domains']) {
            C('APP_SUB_DOMAIN_DEPLOY', true);
            //加载缓存
            $Domains_cache = F("Domains_list");
            if (!$Domains_cache) {
                try {
                    D("Domains")->domains_cache();
                    $Domains_cache = F("Domains_list");
                } catch (Exception $exc) {
                    // 缓存不存在 抛出异常
                    throw_exception('缓存 "Domains_list" 加载失败！ ');
                }
            }
            //子域名部署规则
            $rules = array();
            foreach ($Domains_cache as $domain => $rul) {
                $rules[$domain] = array(
                    $rul . "/",
                );
            }
            C('APP_SUB_DOMAIN_RULES', $rules);
        }

        // 开启子域名部署
        if (C('APP_SUB_DOMAIN_DEPLOY')) {
            $rules = C('APP_SUB_DOMAIN_RULES');
            if (isset($rules[$_SERVER['HTTP_HOST']])) { // 完整域名或者IP配置
                $rule = $rules[$_SERVER['HTTP_HOST']];
            } else {
                $subDomain = strtolower(substr($_SERVER['HTTP_HOST'], 0, strpos($_SERVER['HTTP_HOST'], '.')));
                define('SUB_DOMAIN', $subDomain); // 二级域名定义
                if ($subDomain && isset($rules[$subDomain])) {
                    $rule = $rules[$subDomain];
                } elseif (isset($rules['*'])) { // 泛域名支持
                    if ('www' != $subDomain && !in_array($subDomain, C('APP_SUB_DOMAIN_DENY'))) {
                        $rule = $rules['*'];
                    }
                }
            }

            if (!empty($rule)) {
                //分配当前绑定域名
                C("APP_SUB_DOMAIN", strtolower($_SERVER['HTTP_HOST']));
                // 子域名部署规则 '子域名'=>array('分组名/[模块名]','var1=a&var2=b');
                $array = explode('/', $rule[0]);
                $module = array_pop($array);
                if (!empty($module)) {
                    C("DEFAULT_MODULE", $module);
                    $domainModule = true;
                }
                if (!empty($array)) {
                    C("DEFAULT_GROUP", array_pop($array));
                    $domainGroup = true;
                }
                if (isset($rule[1])) { // 传入参数
                    parse_str($rule[1], $parms);
                    $_GET = array_merge($_GET, $parms);
                }
            }
        }

        // 分析PATHINFO信息
        if (!isset($_SERVER['PATH_INFO'])) {
            $types = explode(',', C('URL_PATHINFO_FETCH'));
            foreach ($types as $type) {
                if (0 === strpos($type, ':')) {// 支持函数判断
                    $_SERVER['PATH_INFO'] = call_user_func(substr($type, 1));
                    break;
                } elseif (!empty($_SERVER[$type])) {
                    $_SERVER['PATH_INFO'] = (0 === strpos($_SERVER[$type], $_SERVER['SCRIPT_NAME'])) ?
                            substr($_SERVER[$type], strlen($_SERVER['SCRIPT_NAME'])) : $_SERVER[$type];
                    break;
                }
            }
        }
        $depr = C('URL_PATHINFO_DEPR');
        if (!empty($_SERVER['PATH_INFO'])) {
            tag('path_info');
            $part = pathinfo($_SERVER['PATH_INFO']);
            define('__EXT__', isset($part['extension']) ? strtolower($part['extension']) : '');
            if (__EXT__) {
                if (C('URL_DENY_SUFFIX') && preg_match('/\.(' . trim(C('URL_DENY_SUFFIX'), '.') . ')$/i', $_SERVER['PATH_INFO'])) {
                    send_http_status(404);
                    exit;
                }
                if (C('URL_HTML_SUFFIX')) {
                    $_SERVER['PATH_INFO'] = preg_replace('/\.(' . trim(C('URL_HTML_SUFFIX'), '.') . ')$/i', '', $_SERVER['PATH_INFO']);
                } else {
                    $_SERVER['PATH_INFO'] = preg_replace('/.' . __EXT__ . '$/i', '', $_SERVER['PATH_INFO']);
                }
            }
            if (!self::routerCheck()) {   // 检测路由规则 如果没有则按默认规则调度URL
                $paths = explode($depr, trim($_SERVER['PATH_INFO'], '/'));
                if (C('VAR_URL_PARAMS')) {
                    // 直接通过$_GET['_URL_'][1] $_GET['_URL_'][2] 获取URL参数 方便不用路由时参数获取
                    $_GET[C('VAR_URL_PARAMS')] = $paths;
                }
                $var = array();
                if (C('APP_GROUP_LIST') && !isset($_GET[C('VAR_GROUP')])) {
                    $var[C('VAR_GROUP')] = in_array(strtolower($paths[0]), explode(',', strtolower(C('APP_GROUP_LIST')))) ? array_shift($paths) : '';
                    if (C('APP_GROUP_DENY') && in_array(strtolower($var[C('VAR_GROUP')]), explode(',', strtolower(C('APP_GROUP_DENY'))))) {
                        // 禁止直接访问分组
                        exit;
                    }
                }
                if (!isset($_GET[C('VAR_MODULE')])) {// 还没有定义模块名称
                    $var[C('VAR_MODULE')] = array_shift($paths);
                }
                $var[C('VAR_ACTION')] = array_shift($paths);
                // 解析剩余的URL参数
                preg_replace('@(\w+)\/([^\/]+)@e', '$var[\'\\1\']=strip_tags(\'\\2\');', implode('/', $paths));
                $_GET = array_merge($var, $_GET);
            }
            define('__INFO__', $_SERVER['PATH_INFO']);
        } else {
            define('__INFO__', '');
        }

        // URL常量
        define('__SELF__', strip_tags($_SERVER['REQUEST_URI']));
        // 当前项目地址
        define('__APP__', strip_tags(PHP_FILE));

        // 获取分组 模块和操作名称
        if (C('APP_GROUP_LIST')) {
            define('GROUP_NAME', self::getGroup(C('VAR_GROUP')));
            // 分组URL地址
            define('__GROUP__', (!empty($domainGroup) || strtolower(GROUP_NAME) == strtolower(C('DEFAULT_GROUP')) ) ? __APP__ : __APP__ . '/' . (C('URL_CASE_INSENSITIVE') ? strtolower(GROUP_NAME) : GROUP_NAME));
        }

        // 定义项目基础加载路径
        define('BASE_LIB_PATH', (defined('GROUP_NAME') && C('APP_GROUP_MODE') == 1) ? APP_PATH . C('APP_GROUP_PATH') . '/' . GROUP_NAME . '/' : LIB_PATH);
        if (defined('GROUP_NAME')) {
            C('CACHE_PATH', CACHE_PATH . GROUP_NAME . '/');
            if (1 == C('APP_GROUP_MODE')) { // 独立分组模式
                $config_path = BASE_LIB_PATH . 'Conf/';
                $common_path = BASE_LIB_PATH . 'Common/';
            } else { // 普通分组模式
                $config_path = CONF_PATH . GROUP_NAME . '/';
                $common_path = COMMON_PATH . GROUP_NAME . '/';
            }
            // 加载分组配置文件
            if (is_file($config_path . 'config.php'))
                C(include $config_path . 'config.php');
            // 加载分组别名定义
            if (is_file($config_path . 'alias.php'))
                alias_import(include $config_path . 'alias.php');
            // 加载分组tags文件定义
            if (is_file($config_path . 'tags.php'))
                C('tags', include $config_path . 'tags.php');
            // 加载分组函数文件
            if (is_file($common_path . 'function.php'))
                include $common_path . 'function.php';
        }else {
            C('CACHE_PATH', CACHE_PATH);
        }
        define('MODULE_NAME', self::getModule(C('VAR_MODULE')));
        define('ACTION_NAME', self::getAction(C('VAR_ACTION')));

        // 当前模块和分组地址
        $moduleName = defined('MODULE_ALIAS') ? MODULE_ALIAS : MODULE_NAME;
        if (defined('GROUP_NAME')) {
            define('__URL__', !empty($domainModule) ? __GROUP__ . $depr : __GROUP__ . $depr . ( C('URL_CASE_INSENSITIVE') ? strtolower($moduleName) : $moduleName ) );
        } else {
            define('__URL__', !empty($domainModule) ? __APP__ . '/' : __APP__ . '/' . ( C('URL_CASE_INSENSITIVE') ? strtolower($moduleName) : $moduleName) );
        }
        // 当前操作地址
        define('__ACTION__', __URL__ . $depr . (defined('ACTION_ALIAS') ? ACTION_ALIAS : ACTION_NAME));
        //保证$_REQUEST正常取值
        $_REQUEST = array_merge($_POST, $_GET);
    }

    /**
     * 路由检测
     * @access public
     * @return void
     */
    static public function routerCheck() {
        $return = false;
        // 路由检测标签
        tag('route_check', $return);
        return $return;
    }

    /**
     * 获得实际的模块名称
     * @access private
     * @return string
     */
    static private function getModule($var) {
        $module = (!empty($_GET[$var]) ? $_GET[$var] : C('DEFAULT_MODULE'));
        unset($_GET[$var]);
        if ($maps = C('URL_MODULE_MAP')) {
            if (isset($maps[strtolower($module)])) {
                // 记录当前别名
                define('MODULE_ALIAS', strtolower($module));
                // 获取实际的模块名
                return $maps[MODULE_ALIAS];
            } elseif (array_search(strtolower($module), $maps)) {
                // 禁止访问原始模块
                return '';
            }
        }
        if (C('URL_CASE_INSENSITIVE')) {
            // URL地址不区分大小写
            // 智能识别方式 index.php/user_type/index/ 识别到 UserTypeAction 模块
            $module = ucfirst(parse_name($module, 1));
        }
        return strip_tags($module);
    }

    /**
     * 获得实际的操作名称
     * @access private
     * @return string
     */
    static private function getAction($var) {
        $action = !empty($_POST[$var]) ?
                $_POST[$var] :
                (!empty($_GET[$var]) ? $_GET[$var] : C('DEFAULT_ACTION'));
        unset($_POST[$var], $_GET[$var]);
        if ($maps = C('URL_ACTION_MAP')) {
            if (isset($maps[strtolower(MODULE_NAME)])) {
                $maps = $maps[strtolower(MODULE_NAME)];
                if (isset($maps[strtolower($action)])) {
                    // 记录当前别名
                    define('ACTION_ALIAS', strtolower($action));
                    // 获取实际的操作名
                    return $maps[ACTION_ALIAS];
                } elseif (array_search(strtolower($action), $maps)) {
                    // 禁止访问原始操作
                    return '';
                }
            }
        }
        return strip_tags(C('URL_CASE_INSENSITIVE') ? strtolower($action) : $action);
    }

    /**
     * 获得实际的分组名称
     * @access private
     * @return string
     */
    static private function getGroup($var) {
        $group = (!empty($_GET[$var]) ? $_GET[$var] : C('DEFAULT_GROUP'));
        unset($_GET[$var]);
        return strip_tags(C('URL_CASE_INSENSITIVE') ? ucfirst(strtolower($group)) : $group);
    }

}
